home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Tcl / Modes / textMode.tcl < prev    next >
Encoding:
Text File  |  2000-12-05  |  1.4 KB  |  38 lines
  1. #################################################################################
  2. # Text mode.
  3. # 
  4. # You should not remove this file.  Alpha may not function very well
  5. # without it.
  6. #================================================================================
  7.  
  8. alpha::mode Text 0.1 {
  9.     # Rather than using a 'dummyProc', we use a script,
  10.     # which is then removed (so it's only ever called once).
  11.     newPref v leftFillColumn {0} Text
  12.     newPref v suffixString { <--} Text
  13.     newPref v prefixString {> } Text
  14.     newPref v fillColumn {75} Text
  15.     newPref f wordWrap {1} Text
  16.     newPref v wordBreak {\w+} Text
  17.     newPref v wordBreakPreface {(\W)} Text
  18.     newPref v wrapBreak {[\w_]+} Text
  19.     newPref v wrapBreakPreface {([^\w_])} Text
  20.     newPref f autoMark 0 Text
  21.     newPref flag quietlyClearMarks 0 Text
  22.     proc Text::DblClick {args} {
  23.     eval Tcl::DblClick $args
  24.     }
  25. } {default} {} {
  26. } help {
  27.     If Alpha does not recognize a specific mode when it opens a file,
  28.     the default mode is "Text" mode.  This help window is in Text mode
  29.     -- one of the far right rectangular boxes in the status bar should
  30.     currently read "Text".  This box is actually a pop-up menu, allowing
  31.     you to change the mode of the current window.
  32.  
  33.     For more information regarding basic editing functions in Alpha, see
  34.     the "Alpha Manual" or the shorter "Quick Start" help files.
  35. }
  36.  
  37.  
  38.